home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
mebbs
/
younggns.lha
/
YG.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1995-02-06
|
62KB
|
2,511 lines
/* -=-=- Young Guns -=-=-
MEBBSNet Conversion BY:
Gene Wilber */
SIGNAL ON ERROR
SIGNAL ON SYNTAX
SIGNAL ON IOERR
SIGNAL ON FAILURE
parse arg ln
options results
Doorname = "Young Guns"
BBS = "Midnight Rodeo" /* Place your BBS name here. */
Mainpath = "Doors:YoungGuns/"
Author = "Gene Wilber"
Ver = "Mebbsnet V1.0"
if( ~show( 'l', "mebbsarexx.library" ) )then do
if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
say "Could not open library"
exit 10
end
end
call time 'R'
call GetVar dn,ln, 1
username = result
time = result
inuseuser = ""
inuseline = 0
if exists(Mainpath"INUSE.TXT") then do
call open(file,Mainpath"INUSE.TXT",'R')
inuseuser = readln(file)
inuseline = readln(file)
call close(file)
if inuseline=~ln then do
call Bl
str = CLS "Young Guns is currently in use by "inuseuser" on line "inuseline"."
call Out
str = "Please try back in a little while..."
call Out
call Bl
call Returnc
call ENDIT
end
end
call open(file,Mainpath"INUSE.TXT",'W')
call writeln(file, username)
call writeln(file,ln)
call close file
CLS = 'H'
BLK = '
'
RED = '
'
GRN = '
'
YEL = '
'
BLU = '
'
PUR = '
'
CYA = '
'
WHT = '
'
OFF = ''
BLUYEL = '
'
CYAWHT = '
'
CyaBlu = '
'
BluCya = '
'
BluWht = '
'
BluPur = '
'
CyaPur = '
'
GrnYel = '
'
RedYel = '
'
gun = 'Old Pistol'
wins = 0
lost = 0
level = 0
bullets = 50
exp = 0
money = 200
bankmon = 0
hits = 50
med = 10
expan = 0
levl = 0
levw = 0
startmins = time('M')
ha = 0
l = 0
str = cls||' '||Blu||'___ ___'||Off
call Out
str = ' '||Cya||'/'||Yel||'\ \ / /'||Off
call Out
str = ' '||Cya||'\ '||Yel||'\ \'||Yel||'/ /'||Off
call Out
str = ' '||Cya||'\ '||Yel||'\ /'||Off||''||Blu||'___ ___ _____ __ _____'||Off
call Out
str = ' '||Cya||'\|'||Yel||'| | \| | | | \ | || _ |'||Off
call Out
str = ' '||Cya||'|'||Yel||'| | - | |_| | \| || |_| |'||Off
call Out
str = ' '||Cya||'|'||Yel||'|__|____/|_______|__|\___||___ |'||Off
call Out
str = ' '||Cya||'|/_//___/ /______//_/ /__/ __|'||Yel||'_| |'||Off
call Out
str = ' '||Cya||'|_'||Yel||'|____|'||Off
call Out
str = ''
call Out
str = ' '||Cya||'+---+ + + + + +---+'||Off
call Out
str = ' '||Cya||'| | | |\ | |'||Off
call Out
str = ' '||Cya||'| --+ | | | \| +---+'||Off
call Out
str = ' '||Cya||'| | | | | | |'||Off
call Out
str = ' '||Cya||'+---+ +---+ + + +---+'||Off
call Out
str = ' '||BluYel||' MEBBSNet Conversion by Gene Wilber '||Off
call Out
str = ' '||BluYel||' Midnight Rodeo BBS (414)855-6399 '||Off
call Out
str = ' '||BluYel||' Original Idea By Eddie Edwards '||Off
call Out
call Bl
str = 'Hit [RETURN]'
call GetKey
answer = upper(hot)
str = CLS
call Out
if exists('DOORS:YoungGuns/LastPlayer') then do
call open(file,'DOORS:YoungGuns/LastPlayer',"R")
last = readln(file);call close(file);end
if ~exists('DOORS:YoungGuns/LastPlayer') then last = 'No One'
if ~exists('DOORS:YoungGuns/Pistolers/'username'') then signal New
signal old
New:
str = Cya 'Ah... A new player!'Off
call Out
Alias:
str = Yel'Would you like to use an alias?['||Blu||'y'||YEL||'/N]'Off
call GetKey
ans = upper(hot)
str = ''
call Out
if ans = 'Y' then do
str = Blu' >--------------<' Off
call Out
str = Cya 'Enter alias >'Off
length = 15
call Input
Alias = upper(typed)
if compress(alias) = '' then signal Alias
if length(alias) > 15 then signal Alias
end
else Alias = username
if exists('DOORS:YoungGuns/Players') then do
call open(file,'DOORS:YoungGuns/Players',"A")
call writeln file, username':'alias;call close(file);end
if ~exists('DOORS:YoungGuns/Players') then do
call open(file,'DOORS:YoungGuns/Players',"W")
call writeln file, username':'alias;call close(file);end
call open(file,'DOORS:YoungGuns/Pistolers/'username'',"W")
call writeln file, gun;call writeln file, bullets;call writeln file, wins
call writeln file, lost;call writeln file, level;call writeln file, exp
call writeln file, money;call writeln file, bankmon;call writeln file, hits
call writeln file, med;call writeln file, alias
call close(file)
str = Blu'You''re all set! Enjoy the game.'Off
call Out
signal load;end
Old:
str = Yel'Welcome back and good luck!'Off
call Out
str = Blu'The last person to play Young Guns was - '||CYA||''last'. 'Off
call Out
Mailcheck:
if ~exists('DOORS:YoungGuns/Mail/'alias'') then do
str = Cya'You were lucky, no one attacked you since you last played.'Off
call Out
end
if exists('DOORS:YoungGuns/Mail/'alias'') then do
sendfile 'DOORS:YoungGuns/Mail/'alias''
address command 'c:delete DOORS:YoungGuns/Mail/'alias''
end
Start:
call open(file,'DOORS:YoungGuns/Pistolers/'username'',"R")
gun = readln(file)
bullets = readln(file)
wins = readln(file)
lost = readln(file)
level = readln(file)
exp = readln(file)
money = readln(file)
bankmon = readln(file)
hits = readln(file)
med = readln(file)
alias = readln(file)
call close(file)
if money = 0 | money < 1 then money = 200
if hits = 0 then hits = 20
Load:
call open(file,'DOORS:YoungGuns/LastPlayer',"W")
call writeln file, ''alias'';call close(file)
str = ''
call Out
call Bl
str = Cya||'Do you want to read the instructions?['||Yel||'y'||Cya||'/N]'||Off
call GetKey
answer = upper(hot)
if answer = 'Y' then signal Intro
signal Main
Intro:
str = CLS||' '||Blu||' _________________________'||Off
call Out
str = ' '||BluYel||'| Young Guns Instructions |'||Off
call Out
str = ' '||BluYel||'|_________________________|'||Off
call Out
str = ''
call Out
str = ' Young Guns takes place in the old western days, back when Billy The'
call Out
str = 'Kid was alive. Now, place yourself in Billy The Kid''s shoes, but you''re not'
call Out
str = 'Billy. You''re you! (Of course!) You must watch what you do or your mission'
call Out
str = 'will be a failure.'
call Out
str = ''
call Out
str = Cya||'-='||CyaWht||'Object Of The Game'||Off||''||Cya||'=-'||Off
call Out
str = Blu'______________________'Off
call Out
str = ''
call Out
str = ' The object of the game is to rule Young Guns. There are missions you'
call Out
str = 'must go on to test your skills and power. There are a total of 10 missions,'
call Out
str = 'each tougher as you go along. Also, other players can attack you and'
call Out
str = 'knock you down a level. The game is not easy, but you can win it if you try.'
call Out
str = 'Don''t give up!'
call Out
call Bl
str = Blu||'-= '||Yel||'Press any key to continue'||Blu||'=-'||Off
call GetKey
answer = upper(hot)
str = CLS
call Out
str = ''
call Out
str = Cya||'-='||CyaWht||'Ending Of The Game'||Off||''||Cya||'=-'||Off
call Out
str = Blu'______________________'Off
call Out
str = ''
call Out
str = ' The game will only end when someone has completed all 10 missions.'
call Out
str = 'Whoever completes all 10 levels is the winner and a new game must begin'
call Out
str = 'again. Good luck!'
call Out
str = ''
call Out
str = ' '||Cya||'-='||CYAWht||'Have fun and enjoy the game'||Off||''||Cya||'=-'||Off
call Out
call Bl
str = BLU||'-=||'Yel||'Press any key to continue'||Blu||'=-'||OFF
call GetKey
answer = upper(hot)
call Main
Main:
str = ' '
call Out
call newsflash
timeleft = 30 - time('E') % 60
if timeleft < 1 then do
str = Red 'Your time limit is up.'Off
call Out
address comand "wait 2"
signal bye;end
if hits < 1 then hits = 0
if money < 1 then money = 0
if bullets < 1 then bullets = 0
str = Blu'['Grn'?'||YEL||' = Menu'Blu']'Off
call GetKey
a = upper(hot)
str = CLS
call Out
str = ' '
call Out
if a = "S" then signal Store
if a = "M" then signal Level
if a = "Y" then signal Stats
if a = "P" then signal Practice
if a = "B" then signal Bank
if a = "G" then signal Gamble
if a = "L" then do
filen = 'DOORS:YoungGuns/Players';call lister
str = ''
call Out
end
if a = "F" then signal UFight
if a = "R" then signal News
if a = "H" then call Healer
if a = '#' then signal GetOut
if a = "?" then do
str = CLS
call Out
str = ' '||BluYel||'-=Young Guns v1.00=-'||Off
call Out
str = ' '||Cya||'MebbsNet Version'||Off
call Out
str = ' '||Blu' ---------------------'||Off
call Out
str = ' '||Blu||'['||Yel||'S'||Blu||'] '||Cya||'Enter the store'||Off
call Out
str = ' '||Blu||'['||Yel||'M'||Blu||'] '||Cya||'Go on a mission'||Off
call Out
str = ' '||Blu||'['||Yel||'Y'||Blu||'] '||Cya||'View your stats'||Off
call Out
str = ' '||Blu||'['||Yel||'P'||Blu||'] '||Cya||'Practice with the computer'||Off
call Out
str = ' '||Blu||'['||Yel||'B'||Blu||'] '||Cya||'Enter the bank'||Off
call Out
str = ' '||BLU||'['||YEL||'G'||BLU||'] '||CYA||'Gamble your money'Off
call Out
str = ' '||BLU||'['||YEL||'L'||BLU||'] '||CYA||'List of other players'Off
call Out
str = ' '||BLU||'['||YEL||'F'||BLU||'] '||CYA||'Fight another player'Off
call Out
str = ' '||BLU||'['||YEL||'R'||BLU||'] '||CYA||'Read the newspaper'Off
call Out
str = ' '||BLU||'['||YEL||'H'||BLU||'] '||CYA||'Heal yourself with medicine'Off
call Out
str = ' '||BLU||'['||YEL||'Q'||BLU||'] '||CYA||'Quit to'red BBS Off
call Out
call Bl
end
if a = "Q" then do
str = Cya'Are you sure? ['||YEL||'Y'||CYA||'/n]'Off
call GetKey
q = upper(hot)
str = ' '
call Out
if q = "N" then call main
signal bye
return;end
signal main
Newsflash:
if level = 9 then do
str = Red' Buckshot George and Arkansas Dave left due to your crazyness.'Off
call Out
str = Red' They found Old Mexico, and were beheaded. There wasn''t an Old Mexico.'Off
call Out
end
if level = 0 then do
str = ' '
call Out
end
if level = 7 then do
str = Cya' Doc and Chavez have died in your recent battle.'Off
call Out
str = Cya' You, Arkansas Dave, and Buckshot George are still alive.'Off
call Out
end
if level = 6 then do
str = Cya' There is a new sheriff of Lincoln county, sheriff Pat Garret.'Off
call Out
end
return
Stats:
str = CLS
call Out
str = '('alias'''s Stats)'
call Out
str = Yel' Hit Points '||BLU||'- '||CYA||''hits''Off
call Out
str = Yel' Gun '||BLU||'- '||CYA||''gun''Off
call Out
str = Yel' Wins '||BLU||'- '||CYA||''wins''Off
call Out
str = Yel' Level '||BLU||'- '||CYA||''level''Off
call Out
str = Yel' Money '||BLU||'- '||CYA||''money''Off
call Out
str = Yel' Medicine '||BLU||'- '||CYA||''med''Off
call Out
str = Yel' Bullets '||BLU||'- '||CYA||''bullets''Off
call Out
str = Yel' Lost '||BLU||'- '||CYA||''lost''Off
call Out
str = Yel' Experience '||BLU||'- '||CYA||''exp''Off
call Out
str = Yel' Bank Money '||BLU||'- '||CYA||''bankmon''Off
call Out
signal main
Healer:
if level = 0 then do
if hits >= 100 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if level = 1 then do
if hits = 100 | hits > 100 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if level = 2 then do
if hits = 200 | hits > 200 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if level = 3 then do
if hits = 300 | hits > 300 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if level = 4 then do
if hits = 400 | hits > 400 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if level = 5 then do
if hits = 500 | hits > 500 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if level = 6 then do
if hits = 600 | hits > 600 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if level = 7 then do
if hits = 700 | hits > 700 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if level = 8 then do
if hits = 800 | hits > 800 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if level = 9 then do
if hits = 900 | hits > 900 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if level = 10 then do
if hits = 1000 | hits > 1000 then do
str = Red'You can''t heal anymore!'Off
call Out
return
end
end
if med > 0 then do
str = Blu'You healed 10 hitpoints with medicine.'Off
call Out
address command "wait 1"
med = med - 1
hits = hits + 10
return
end
if med = 0 | med < 1 then do
str = Red'You have no medicine to heal with.'Off
call Out
return
end
Shoot:
str = ''
call Out
if gun = 'Old Pistol' then do
randfire = random(1,3,time('s'))
if randfire = 1 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and hit, damaging 1 points.'Off
call Out
ohit = ohit - 1
end
if randfire = 2 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and hit, damaging 2 points.'Off
call Out
ohit = ohit - 2
end
if randfire = 3 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and miss.'Off
call Out
end
bullets = bullets - 1
return
end
if gun = 'Pistol' then do
randfire = random(1,3,time('s'))
if randfire = 1 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and hit, damaging 3 points.'Off
call Out
ohit = ohit - 3
end
if randfire = 2 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and hit, damaging 2 points.'Off
call Out
ohit = ohit - 2
end
if randfire = 3 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and miss.'Off
call Out
end
bullets = bullets - 1
return
end
if gun = 'Long Barrel' then do
randfire = random(1,3,time('s'))
if randfire = 1 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and hit, damaging 4 points.'Off
call Out
ohit = ohit - 4
end
if randfire = 2 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and hit, damaging 5 points.'Off
call Out
ohit = ohit - 5
end
if randfire = 3 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and miss.'Off
call Out
end
bullets = bullets - 1
return
end
if gun = 'Shotgun' then do
randfire = random(1,3,time('s'))
if randfire = 1 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and hit, damaging 6 points.'Off
call Out
ohit = ohit - 6
end
if randfire = 2 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and hit, damaging 7 points.'Off
call Out
ohit = ohit - 7
end
if randfire = 3 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and miss.'Off
call Out
end
bullets = bullets - 1
return
end
if gun = 'Young Gun' then do
randfire = random(1,3,time('s'))
if randfire = 1 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and hit, damaging 8 points.'Off
call Out
ohit = ohit - 8
end
if randfire = 2 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and hit, damaging 7 points.'Off
call Out
ohit = ohit - 7
end
if randfire = 3 then do
str = Blu'You fire at '||YEL||''obj' '||BLU||'and miss.'Off
call Out
end
bullets = bullets - 1
return
end
Cshoot:
if ogun = 'Old Pistol' then do
randcomp = random(1,3,time('s'))
if randcomp = 1 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and hits, damaging 3 points!'Off
call Out
address command "wait 2"
hits = hits - 3
end
if randcomp = 2 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and hits, damaging 2 points!'Off
call Out
address command "wait 2"
hits = hits - 2
end
if randcomp = 3 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and misses.'Off
call Out
address command "wait 2"
end
obullets = obullets - 1
return
end
if ogun = 'Pistol' then do
randcomp = random(1,3,time('s'))
if randcomp = 1 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and hits, damaging 4 points!'Off
call Out
address command "wait 2"
hits = hits - 4
end
if randcomp = 2 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and hits, damaging 3 points!'Off
call Out
address command "wait 2"
hits = hits - 3
end
if randcomp = 3 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and misses.'Off
call Out
address command "wait 2"
end
obullets = obullets - 1
return
end
if ogun = 'Long Barrel' then do
randcomp = random(1,3,time('s'))
if randcomp = 1 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and hits, damaging 5 points!'Off
call Out
address command "wait 2"
hits = hits - 5
end
if randcomp = 2 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and hits, damaging 4 points!'Off
call Out
address command "wait 2"
hits = hits - 4
end
if randcomp = 3 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and misses.'Off
call Out
addrress command "wait 2"
end
obullets = obullets - 1
return
end
if ogun = 'Shotgun' then do
randcomp = random(1,3,time('s'))
if randcomp = 1 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and hits, damaging 6 points!'Off
call Out
address command "wait 2"
hits = hits - 6
end
if randcomp = 2 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and hits, damaging 5 points!'Off
call Out
address command "wait 2"
hits = hits - 5
end
if randcomp = 3 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and misses.'Off
call Out
address command "wait 2"
end
obullets = obullets - 1
return
end
if ogun = 'Young Gun' then do
randcomp = random(1,3,time('s'))
if randcomp = 1 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and hits, damaging 7 points!'Off
call Out
address command "wait 2"
hits = hits - 7
end
if randcomp = 2 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and hits, damaging 6 points!'Off
call Out
address command "wait 2"
hits = hits - 6
end
if randcomp = 3 then do
str = Red'* '||PUR||''obj' 'Red'fires at you and misses.'Off
call Out
address command "wait 2"
end
obullets = obullets - 1
return
end
Store:
str = CLS
call Out
str = ''
call Out
str = ' '||BLU||'---=== '||CYA||'Store Menu '||BLU||'===---'Off
call Out
str = ' '||YEL||'+__+_____+_________________________+_____+__+'
call Out
str = ' 'Wht'| | '||YEL||'| '||BLU||'['||YEL||'G'||BLU||'] '||CYA||'Buy a new gun'||YEL||' | 'Wht'| |'Off
call Out
str = ' 'Wht'| | '||YEL||'| '||BLU||'['||YEL||'S'||BLU||'] '||CYA||'Sell your gun'||YEL||' | 'Wht'| |'Off
call Out
str = ' 'Wht'| | '||YEL||'| '||BLU||'['||YEL||'M'||BLU||'] '||CYA||'Buy some medicine'||YEL||' | 'Wht'| |'Off
call Out
str = ' 'Wht'| | '||YEL||'| '||BLU||'['||YEL||'B'||BLU||'] '||CYA||'Buy some bullets'||YEL||' | 'Wht'| |'Off
call Out
str = ' 'Wht'| | '||YEL||'| '||BLU||'['||YEL||'Q'||BLU||'] '||CYA||'Leave the store'||YEL||' | 'Wht'| |'Off
call Out
str = ' 'Wht'| | '||YEL||'|_________________________| 'Wht'| |'Off
call Out
str = ' 'Grn'\'Wht'| |'Grn'/ \'Wht'| |'Grn'/'Off
call Out
str = ''
call Out
call Bl
str = Blu 'May I help you with something?' Off
call GetKey
p = upper(hot)
str = ''
call Out
if p = "G" then do
call bgun;end
if p = "S" then call sgun
if p = "M" then call medicine
if p = "B" then call ammo
if p = "Q" then call main
signal store
bgun:
str = CLS
call Out
str = CYA 'Here''s what we have in stock:' OFF
call Out
str = ' '
call Out
str = ' '||CYA||'---=== '||BLU||'Guns Menu '||CYA||'===---'Off
call Out
str = ' '||YEL||'-------------'Off
call Out
str = ' '||BLU||'['||YEL||'P'||BLU||'] '||CYA||'Pistol '||YEL||'- 'Grn'$1000'Off
call Out
str = ' '||BLU||'['||YEL||'B'||BLU||'] '||CYA||'Long Barrel '||YEL||'- 'Grn'$2000'Off
call Out
str = ' '||BLU||'['||YEL||'S'||BLU||'] '||CYA||'Shotgun '||YEL||'- 'Grn'$3000'Off
call Out
str = ' '||BLU||'['||YEL||'Y'||BLU||'] '||CYA||'Young Gun '||YEL||'- 'Grn'$4000'Off
call Out
str = ' '
call Out
call Bl
str = Blu' What may you be intrested in? ['||PUR||'Q'||BLU||'] = Quit to Front store]'Off
call GetKey
c = upper(hot)
str = ''
call Out
if c = "Q" then signal store
if c = "P" then do
if money < 1000 then do
call Nmoney
call bgun;end
if money > 1000 | money = 1000 then do
str = Yel'The Pistol is now yours, be careful!'Off
call Out
call Bl
str = RED "Hit [RETURN] "
call GetKey
answer = upper(hot)
money = money - 1000
gun = 'Pistol';signal store;end;end
if c = "B" then do
if money < 2000 then do
call Nmoney;call bgun;end
if money > 2000 | money = 2000 then do
str = Yel'The Long Barrel is now yours, be careful!'Off
call Out
call Bl
str = RED "Hit [RETURN]"
call GetKey
aswer = Upper(hot)
gun = 'Long Barrel';money = money - 2000;call store;end;end
if c = "S" then do
if money < 3000 then do
call Nmoney;call bgun;end
if money > 3000 | money = 3000 then do
str = Yel'The Shotgun is yours, be careful!'Off
call Out
call Bl
str = RED "Hit [RETURN]"
call GetKey
answer = upper(hot)
gun = 'Shotgun'
money = money - 3000;call store;end;end
if c = "Y" then do
if money < 4000 then do
call Nmoney;call bgun;end
if money > 4000 | money = 4000 then do
str = Yel'The Young Gun is yours, be careful!'Off
call Out
call Bl
str = RED "Hit [RETURN]"
call GetKey
answer = upper(hot)
gun = 'Young Gun';money = money - 4000;call store;end;end
call bgun
Nmoney:
str = ' '
call Out
str = Red'Sorry, you need more money!'Off
call Out
call Bl
str = RED "Hit [RETURN]"
call GetKey
answer = upper(hot)
return
Practice:
if hits = 0 | hits < 1 then do
str = ' '
call Out
str = Red'Sorry, you need hitpoints to practice.'Off
call Out
str = RED'Hit [RETURN]'OFF
call GetKey
answer = hot
call main;end
if bullets = 0 | bullets < 1 then do
str = Red ' Sorry, you need bullets to fight.'Off
call Out
call Bl
str = RED "Hit [RETURN]"
call GetKey
answer = upper(hot)
call main;end
randprac = random(1,3,time('s'))
if randprac = 1 then obj = ''||PUR||'Clint Eastwood'Off
if randprac = 2 then obj = ''||YEL||'Quick Shot'Off
if randprac = 3 then obj = ''||CYA||'Buford Tannen'Off
str = 'You will be fighting 'obj'.'
call Out
if obj = Pur'Clint Eastwood'Off then call Clint
if obj = Yel'Quick Shot'Off then call Quick
if obj = Cya'Buford Tannen'Off then call Buford
signal Practice!
Clint:
ohit = 20
obullets = 20
ogun = 'Old Pistol'
return
Quick:
ohit = 19
obullets = 19
ogun = 'Old Pistol'
return
Buford:
ohit = 19
obullets = 21
ogun = 'Old Pistol'
return
Practice!:
if hits = 0 | hits < 0 then do
str = Blu'You lost your practice, try again sometime.'Off
call Out
signal main;end
if bullets = 0 | bullets < 0 then do
str = Red'You lose, next time have enough bullets.'Off
call Out
signal main;end
if ohit = 0 | ohit < 1 then do
str = Grn'You win! Nice shooting. Here''s your bonus!'Off
call Out
call bonus;end
if obullets = 0 | obullets < 0 then do
str = Grn||'You win! '||Cya||''obj' '||Grn||'ran out of bullets. Here''s your bonus.'||Off
call Out
call bonus;end
str = '(Your hits '||Pur||':'||Off||' '||Cya||''hits''||Off||') (Your bullets '||Pur||':'||Off||' '||Cya||''bullets')'||Off
call Out
str = '('||Pur||''obj'''s'||Off||' hits '||Yel||':'||Off||' '||Red||''ohit''||Off||') ('||Pur||''obj'''s'||Off||' bullets '||Yel||':'||Off||' '||RED||''obullets')'||Off
call Out
str = Blu||'['||Yel||'F'||Blu||']'||Off||' Fire at 'obj
call Out
str = Blu||'['||Yel||'Q'||Blu||']'||Off||' Quit and give up'
call Out
str = YEL 'Command '||PUR||'->'Off
call GetKey
n = upper(hot)
str = CLS
call Out
if n = "Q" then call main
if n = "F" then do
call shoot;call cshoot;end
signal practice!
Lister:
call open(player,filen,'R')
x = 0
do until eof(player) = 1
x = x + 1
line = readln(player)
parse var line uName':'uAlias
uname.x = uname
ualias.x = ualias
end
call close player
numplayers = x - 1
str = ' '
call Out
do i = 1 to numplayers
a = right(' 'i,6)||'. 'ualias.i
str = left(a,49)
call Out
end;return
Bank:
str = CLS
call Out
str = ' '
call Out
str = ' '||Grn||'---=== '||Cya||'Bank Menu '||Grn||'===---'||Off
call Out
str = ' '||Grn||'-------------'||Off
call Out
str = ' '||Blu||'['||Yel||'D'||Blu||'] '||Cya||'Deposit money'||Off
call Out
str = ' '||Blu||'['||Yel||'W'||Blu||'] '||Cya||'Withdraw money'||Off
call Out
str = ' '||Blu||'['||Yel||'Q'||Blu||'] '||Cya||'Quit to town'||Off
call Out
str = ''
call Out
str = Blu||'['||Cya||'Bank'||Blu||'] '||Grn||'How may I help you today? '||Off
call GetKey
d = upper(hot)
str = ''
call Out
if d = "Q" then call Main
if d = "D" then call Deposit
if d = "W" then call Withd
Deposit:
str = Blu'['||Pur||'Money = 'money''||Blu||'] '
call Out
str = Cya||'Deposit how much money? ['||Yel||'Q'||Cya||'] = Quit to front bank->'||Grn||'$'Off
length = 10
call Input
e = upper(typed)
if e = "0" then call Bank
if e = "" then call Bank
if e = "q" | e = "Q" then call bank
if e > money then do
str = Red'You don''t have that much money!'Off
call Out
address command "wait 2"
signal Bank
end
if e < money | e = money then do
str = Grn' 'e' '||YEL||' deposited.'Off
call Out
address command "wait 2"
bankmon = bankmon + e;money = money - e;call bank
signal Bank
end
WithD:
str = Wht||'['||Cya||'Money In Bank = 'bankmon''||Wht||'] 'Off
call Out
str = Cya||'Withdraw how much? ['||Wht||'Q'||Cya||' = Quit to front bank]->'||Grn||'$'||Off
call Out
length = 10
call Input
f = upper(typed)
str = ''
call Out
if f = "0" then call WithD
if f = "q" | f = "Q" then call bank
if f = "" then signal Withd
if f > e then do
str = Red|| 'You don''t have that much money!'||Off
call Out
address command "wait 2"
call Withd;end
if f < e | f = e then do
str = Grn||''f''||Yel||' withdrawn.'||Off
call Out
address command "wait 2"
bankmon = bankmon - f;money = money + f;call bank
signal WithD
end
Ammo:
if bullets > 200 | bullets = 200 then do
call Bl
str = Red|| 'You have your limit in bullets.'||Off
call Out
address command "wait 1"
signal main;end
else do
str = CLS
call Out
call BL
str = ' '||Cya||'---=== '||Wht||'Bullets Menu '||Cya||'===---'||Off
call Out
str = ' '||Pur||'----------------'||Off
call Out
str = ' '||Blu||'['||Yel||'B'||Blu||'] '||Cya||'Buy 50 bullets - '||Grn||'$100'||Off
call Out
str = ' '||Blu||'['||Yel||'Q'||Blu||'] '||Cya||'Quit to town'||Off
call Out
str = ''
call Out
str = Blu||'['||Yel||'Bullet store'||BLU||']'
call Out
str = Red||'What can I get for you?'||RED||'['||Cya||'Q'||Red||' = Quit to front store] '||Off
call GetKey
g = upper(hot)
call Bl
if g = "B" then do
if money < 100 then do
str = Red 'You don''t have that much money!'Off
call Out
address command "wait 2"
signal Ammo;end;end
if money > 100 | money = 100 then do
str = Cya||'You bought 50 bullets.'||Off
call Out
address command "wait 2"
money = money - 100
bullets = bullets + 50
end
if g = "Q" then call store
signal Ammo
Ufight:
if hits = 0 | hits < 1 then do
str = Red'Sorry, your hitpoints are too low.'Off
call Out
address command "wait 2"
call main;end
if bullet = 0 | bullets < 1 then do
str = Red'Sorry, you must have some bullets to fight.'Off
call Out
address command "wait 2"
call main;end
filen = 'DOORS:YoungGuns/Players'
call lister
str = ' '
call Out
str = Blu||'['||Pur||'User Battle'||Blu||'] 'Off
call Out
str = Yel||'Which user do you want to fight?'||CYA||'(Enter player number)'||Off
call Out
str = Blu||'['||Pur||'Q'||Blu||']'||PUR||' = Quit to town-> '||Off
call GetKey
x = upper(hot)
str = ''
call Out
if x = "Q" then call main
if x = '' then call Ufight
if x < 1 | x > numplayers then call Ufight
Filename = 'DOORS:YoungGuns/Pistolers/'uname.x
if uname.x = username then do
str = Red||'You '||Yel||'dummy'||Red||', you can''t attack yourself!'||Off
call Out
address command "wait 2"
call Ufight
end
if ~exists(filename) then do
str = Red'There''s no player under that name.'Off
call Out
address command "wait 2"
call Ufight
end
obj = ualias.x
Getfighter:
call open(file,filename,"R")
ogun = readln(file)
obullets = readln(file)
owins = readln(file)
olost = readln(file)
olevel = readln(file)
oexp = readln(file)
omoney = readln(file)
obankmon = readln(file)
ohit = readln(file)
omed = readln(file)
oalias = readln(file)
call close(file)
if obullets = 0 | obullets < 1 then do
str = Yel||'Sorry, '||Blu||''obj''||Yel||' is out of bullets. He will not fight.'||Off
call Out
address command "wait 2"
call Ufight;end
if ohit = 0 | ohit < 1 then do
str = Yel||'Sorry, '||Blu||''obj''||Yel||' is hurt too bad to fight.'||Off
call Out
address command "wait 2"
call Ufight;end
str = ''
call Out
str = CLS
call Out
str = Blu''obj'''s stats file 'Off
call Out
str = Cya'Hit points '||BLU||'- '||YEL||''ohit''Off
call Out
str = Cya'Gun '||BLU||'- '||YEL||''ogun''Off
call Out
str = Cya'Wins '||BLU||'- '||YEL||''owins''Off
call Out
str = Cya'Money '||BLU||'- '||YEL||''omoney''Off
call Out
str = Cya'Bullets '||BLU||'- '||YEL||''obullets''Off
call Out
str = Cya'Lost '||BLU||'- '||YEL||''olost''Off
call Out
str = Cya||'Experience '||Blu||'- '||Yel||''oexp''||Off
call Out
call Bl
str = Blu||'Are you sure you want to fight this user? ['||Yel||'Y'||Blu||'/n]'||Off
call GetKey
h = upper(hot)
str = ''
call Out
if h = "N" then call Ufight
signal Ufight!
Ufight!:
if hit = 0 | hit < 1 then do
str = Red'Sorry, you lose. Try again later.'Off
call Out
call Bl
str = RED'Hit [RETURN]'
call GetKey
answer = hot
lost = lost + 1
lo = 1
call winlose;end
if ohit = 0 | ohit < 1 then do
str = Pur||'Congratulations! You beat '||Blu||''obj''||Pur||'!'||Off
call Out
address command "wait 2"
wins = wins + 1
wi = 1
call winlose;end
if obullets = 0 | obullets < 1 then do
str = Pur||'Congratulations! '||Blu||''obj' '||Pur||'has run out of bullets! You win!'||Off
call Out
address command "wait 2"
wins = wins + 1
wi = 1
call winlose;end
if bullets = 0 | bullets < 1 then do
str = Red'Sorry, you lose. Next time check your bullets.'Off
call Out
address command "wait 2"
lost = lost + 1
lo = 1
call winlose;end
if hits = 0 | hits < 1 then do
str = Red'Sorry, you lose. Next time come prepared.'Off
call Out
address command "wait 2"
lost = lost + 1
lo = 1
call winlose;end
str = CLS
call Out
str = '(Your hit points '||Cya||':'||Off||' '||Yel||''hits''||Off||' (Your bullets '||Cya||': '||Yel||''bullets')'||Off
call Out
str = '('obj'''s hit points '||Red||': '||Blu||''ohit''||Off||' ('obj'''s bullets '||Red||': '||Blu||''obullets')'||Off
call Out
str = Blu||'['||Yel||'F'||Blu||'] '||Cya||'- '||Blu||'Fire at 'obj''||Off||' '||Yel||' '||Off
call Out
str = Blu||'['||Yel||'Q'||Blu||'] '||Cya||'-'||Off||' '||Blu||'Quit and give up'||Off
call Out
str = Pur'Option'||YEL||'-> 'Off
call GetKey
i = upper(hot)
str = ''
call Out
if i = "Q" then do
str = CLS
call Out
str = Yel'Chicken...!'Off
call Out
call main;end
if i = "F" then do
call shoot;call cshoot;end
if i = "" then call Ufight!
signal Ufight!
Medicine:
str = CLS
call Out
str = ' '
call Out
str = ' '||Cya||'---=== '||Wht||'Medicine Menu '||Cya||'===---'||Off
call Out
str = ' -----------------'
call Out
str = ''
call Out
str = ' '||Blu||'['||Yel||'B'||Blu||'] '||Cya||'Buy a 10 pack of 10 medicine for '||Grn||'$50'||Off
call Out
str = ' '||Blu||'['||Yel||'Q'||Blu||'] '||Cya||'Quit to the store'||Off
call Out
call Bl
str = Wht||'What can I do for you today? ['||Yel||'Q'||Wht||'] = Quit to store] >'|| Off
call GetKey
j = upper(hot)
call Bl
if j = "B" then do
if money < 50 then do
str = Red 'Sorry, you don''t have enough money.'Off
call Out
address command "wait 2"
signal Medicine;end
if money > 50 then do
str = Cya'10 pack of medicine sold.'Off
call Out
address command "wait 2"
money = money - 50
med = med + 10
signal medicine;end;end
if j = "Q" then signal store
signal medicine
Gamble:
if money < 1 then do
str = Red'Sorry, you don''t have any money to gamble.'Off
call Out
address command "wait 2"
signal main;end
str = CLS
call Out
str = ' '
call Out
str = ' '||Cya||'---=== '||Blu||'Gambling Menu '||Cya||'===---'||Off
call Out
str = ' '||Yel||'-----------------'
call Out
str = ' '||Blu||'['||Yel||'P'||Blu||'] '||Cya||'Play the Guessing Game'||Off
call Out
str = ' '||Blu||'['||Yel||'Q'||Blu||'] '||Cya||'Quit to town'||Off
call Out
str = ''
call Out
str = Blu||'['||Cya||'Gambling room'||Blu||'] 'Off
call Out
str = Grn||'What would you like to play? ['||Yel||'Q'||Grn||' = Quit to town] '||Off
call GetKey
k = upper(hot)
str = ''
call Out
if k = "P" then call Guess
if k = "Q" then call main
signal Gamble
Guess:
if money < 100 then do
str = Red'Sorry, you need 'Grn'$100 'Red'to play.'Off
call Out
address command "wait 2"
call main;end
randnum = random(1,5,time('s'))
if randnum = 1 then num = 1
if randnum = 2 then num = 2
if randnum = 3 then num = 3
if randnum = 4 then num = 4
if randnum = 5 then num = 5
str = Blu||'['||Yel||'Pick a number 1-5'||Blu||'] ->'||Off
call GetKey
l = upper(hot)
str = ''
call Out
if l > 5 then do
str = Cya||'Enter 1-5 only '||Yel||'-'||Cya||'>'Off
call GetKey
l = upper(hot)
signal Guess;end
if l = num then do
str = Yel||'You guessed the number! You receieve '||Grn||'200 dollars'||Yel||'!'||Off
call Out
address command "wait 2"
money = money + 300
signal Gamble;end
str = Yel||'Sorry, you didn''t get the number. You lose '||Grn||'$100.'||Off
call Out
address command "wait 2"
money = money - 100
signal gamble;end
signal Guess
Bonus:
exp = exp + 20
randbon = random(1,3,time('s'))
if randbon = 1 then do
str = Yel||'You get '||Grn||'$300'||Yel||', 5 medicines and 20 experience points.'||Off
call Out
money = money + 300
med = med + 5
end
if randbon = 2 then do
str = Yel||'You get '||Grn||'$200'||Yel||', 10 medicines and 20 experience points.'||Off
call Out
money = money + 200
med = med + 10
end
if randbon = 3 then do
str = Yel||'You get '||Grn||'$350'||Yel||', 10 medicines and 20 experience points.'||Off
call Out
money = money + 350
med = med + 10
end
signal main
News:
if ~exists('DOORS:YoungGuns/Newspaper') then do
str = 'The newspaper is still in publishing.'
call Out
signal main;end
call readfile dn,ln, "DOORS:YoungGuns/Newspaper"
signal main;end
Winlose:
if wi = 1 then do
str = Cya||'You get '||Grn||'$'omoney' '||Cya||'from '||Yel||''obj'''s '||Cya||'pocket.'||Off
call Out
address command "wait 2"
money = money + omoney
omoney = 0
if olevel = 0 then olevel = 1
olevel = olevel - 1
end
if lo = 1 then do
str = Cya||'You lost '||Grn||'$'omoney'. '||Yel||''obj' '||Cya||'took it from you!'||Off
call Out
address command "wait 2"
omoney = omoney + money
money = 0
end
call open(file,filename,"W")
call writeln file, ogun;call writeln file, obullets;call writeln file, owins
call writeln file, olost;call writeln file, olevel;call writeln file, oexp
call writeln file, omoney;call writeln file, obankmon;call writeln file, ohit
call writeln file, omed;call writeln file, oalias
call close(file)
if lo = 1 then do
if ~exists('DOORS:YoungGuns/Mail/'oalias) then do
call open(file,'DOORS:YoungGuns/Mail/'oalias,"W")
call writeln file, alias' attacked you and lost. You were to powerful!'
call close(file);lo = 0;call main;end
call open(file,'DOORS:YoungGuns/Mail/'oalias,"A")
call writeln file, alias' attacked you and lost. You were to powerful!'
call close(file);lo = 0;call main;end
if wi = 1 then do
if ~exists('DOORS:YoungGuns/Mail/'oalias) then do
call open(file,'DOORS:YoungGuns/Mail/'oalias,"W")
call writeln file, alias' attacked you and won!'
call close(file);wi = 0;call main;end
call open(file,'DOORS:YoungGuns/Mail/'oalias,"A")
call writeln file, alias' attacked you and won!'
call close(file);wi = 0;call main;end
Level:
if hits = 0 | hits < 1 then do
str = Red'Sorry, you need hitpoints to fight.'Off
call Out
address command "wait 2"
signal main;end
if bullets = 0 | bullets < 1 then do
str = Red'Sorry, you need bullets to fight, go get some.'Off
call Out
address command "wait 2"
signal main;end
if level = 0 then call Level1
if level = 1 then call Level2
if level = 2 then call Level3
if level = 3 then call Level4
if level = 4 then call Level5
if level = 5 then call Level6
if level = 6 then call Level7
if level = 7 then call Level8
if level = 8 then call Level9
if level = 9 then call Level10
if level = 10 then
str = Pur'You have no more levels! You have won! Please'Off
call Out
str = Pur'tell your SysOp to reset Young Guns now that you''ve won.'Off
call Out
address command "wait 2"
signal main
Level1:
lev = 1
ogun = 'Young Gun'
obj = 'The Wagon'
ohit = 100
obullets = 100
str = CLS
call Out
str = ' '
call Out
str = ' '||CYA||' _____________________________________________'Off
call Out
str = ' 'CyaBlu'| Level 1 - Take out the Lincoln Men''s wagon |'Off
call Out
str = ' 'CyaBlu'|____________________________________________|'Off
call Out
str = ''
call Out
str = ' You must destory the Lincoln Men''s wagon, because it''s blocking'
call Out
str = ' the path that you''re on. Make sure you are prepared with the bullets and'
call Out
str = ' hitpoints. Medicine will also help in this procedure. Good luck!'
call Out
str = ''
call Out
str = Cya||'Are you ready for this mission? ['||Yel||'Y'||Cya||'/n]'||Off
call GetKey
n = upper(hot)
str = ''
call Out
if n = "N" then call main
signal Level11
Checklev:
if ohit = 0 | ohit < 1 then do
str = Pur||'You have beaten '||Yel||''obj''||Pur||', nice going!'||Off
call Out
levw = 1
call levelsave;end
if obullets = 0 | obullets < 1 then do
str = Yel||''obj' '||Pur||'has ran out of bullets. You win, nice going!'||Off
call Out
levw = 1
call Levelsave;end
if hits = 0 | hits < 1 then do
str = Pur||'You have failed the mission, watch your hit points next time!'||Off
call Out
levl = 1
call Levelsave;end
if bullets = 0 | bullets < 1 then do
str = Pur||'You have failed the mission, next time watch your bullets!'||Off
call Out
levl = 1
call Levelsave;end
return
Level11:
call checklev
call levelstats
str = Blu'Command '||YEL||'->'Off
call GetKey
o = upper(hot)
str = ''
call Out
if o = "F" then do
call shoot
call cshoot
end
if o = "H" then call healer
if o = "Q" then call levelquit
signal Level11
Levelsave:
if level = 10 then do
if levw = 1 then do
str = Yel||'Congratulations'||Pur||'! '||Yel||'You have won '||BluYel||'Young Guns'||Pur||'!'||Off
call Out
str = Yel||'Please tell your SysOp to reset Young Guns now that you''ve won.'||Off
call Out
address command "wait 2"
end
if levl = 1 then do
str = Red||'Sorry, you lost, now you are level 1 again! Next time play smart!'||Off
call Out
address command "wait 2"
lev = 0;level = 0;end
end
time = date()
if levw = 1 then do
if lev = 1 then level = 1
if lev = 2 then level = 2
if lev = 3 then level = 3
if lev = 4 then level = 4
if lev = 5 then level = 5
if lev = 6 then level = 6
if lev = 7 then level = 7
if lev = 8 then level = 8
if lev = 9 then level = 9
if lev = 10 then level = 10
str = Blu||'You are awarded '||Grn||'$1000 dollars.'||Off
call Out
money = money + 1000
if ~exists('DOORS:YoungGuns/Newspaper') then do
call open(file,'DOORS:YoungGuns/Newspaper',"W")
call writeln file, ''alias' completed level 'lev' on 'time'.'
call close(file);levw = 0;signal main;end
if exists('DOORS:YoungGuns/Newspaper') then do
call open(file,'DOORS:YoungGuns/Newspaper',"A")
call writeln file, ''alias' completed level 'lev' on 'time'.'
call close(file);levw = 0;signal main;end
levw = 0;signal main;end
if levl = 1 then do
if ~exists('DOORS:YoungGuns/Newspaper') then do
call open(file,'DOORS:YoungGuns/Newspaper',"W")
call writeln file, ''alias' has failed level 'lev' on 'time'.'
call close(file);levl = 0;signal main;end
if exists('DOORS:YoungGuns/Newspaper') then do
call open(file,'DOORS:YoungGuns/Newspaper',"A")
call writeln file, ''alias' has failed level 'lev' on 'time'.'
call close(file);levl = 0;signal main;end
levl = 0;signal main;end
signal main
Nolevel:
str = Red'Sorry, that level is not yet available.'Off
call Out
address command "wait 2"
Signal main
Level2:
lev = 2
call checkexp
ogun = 'Young Gun'
ohit = '120'
obj = 'The Lynch mob'
obullets = 120
str = CLS
call Out
str = ' '
call Out
str = ' '||BLU||'__________________________________________________'Off
call Out
str = ' 'BluPur'| Level 2 - Rescue your friends from the Lynch Mob |'Off
call Out
str = ' 'BluPur'|__________________________________________________|'Off
call Out
str = ''
call Out
str = ' You must rescue your friends, Chavez and Doc, from the Lynch mob in'
call Out
str = ' Lincoln town. Rescue them and you will have new partners for the rest of'
call Out
str = ' your journey to find Old Mexico. Good luck!'
call Out
str = ''
call Out
str = Cya||'Are you ready for this mission? ['||Wht||'Y'||Cya||'/n]'||Off
call GetKey
p = upper(hot)
str = ''
call Out
if p = "N" then call main
signal Level22
end
Level22:
call checklev
call levelstats
str = Cya'Command '||BLU||'->'Off
call GetKey
q = upper(hot)
str = ''
call Out
str = CLS
call Out
if q = "F" then do
call shoot
call cshoot
end
if q = "H" then call healer
if q = "Q" then call levelquit
signal level22
Sgun:
if gun = 'Old Pistol' then do
str = Red'You can''t sell your Old Pistol, it''s too old!'Off
call Out
address command "wait 2"
call store;end
if gun = 'Pistol' then do
str = Blu||'I will give you '||Grn||'$500 '||Blu||'for that Pistol. ['||Pur||'Y'||Blu||'/n] >'||Off
call GetKey
a = upper(hot)
str = ''
call Out
if a = "N" then call store
str = Yel'Pistol was sold for 'Grn'$500'||YEL||'.'Off
call Out
address command "wait 2"
gun = 'Old Pistol'
money = money + 500
call store;end
if gun = 'Long Barrel' then do
str = Blu||'I will give you '||Grn||'$1000 '||Blu||'for that Long Barrel.'
call Out
str = BLU'['||Pur'Y'||Blu||'/n]'||Off
call GetKey
a = upper(hot)
str = ''
call Out
if a = "N" then call store
str = Yel||'Long Barrel was sold for '||Grn||'$1000'||Yel||'.'||Off
call Out
address command "wait 2"
gun = 'Old Pistol'
money = money + 1000
call store;end
if gun = 'Shotgun' then do
str = Blu||'I will give you '||Grn||'$2000 '||Blu||'for that shotgun.'OFF
call Out
str = BLU'['||Pur||'Y'||Blu||'/n]'||Off
call GetKey
a = upper(hot)
str = ''
call Out
if a = "N" then call store
str = Yel||'Shotgun was sold for '||Grn||'$2000'||Yel||'.'||Off
call Out
address command "wait 2"
gun = 'Old Pistol'
money = money + 2000
call store;end
if gun = 'Young Gun' then do
str = Blu||'I will give you '||Grn||'$3000 '||Blu||'for that Young Gun.'OFF
call Out
str = BLU'['||Pur||'Y'||Blu||'/n]'||Off
call GetKey
a = upper(hot)
str = ''
call Out
if a = "N" then call store
str = Yel||'Young Gun was sold for '||Grn||'$3000'||Yel||'.'||Off
call Out
address command "wait 2"
gun = 'Old Pistol'
money = money + 3000
call store;end
call store
Level3:
lev = 3
call checkexp
str = CLS
call Out
str = ' '
call Out
str = ' '||BLU||'_______________________________________'Off
call Out
str = ' 'BluWht'| Level 3 - Escape from the Lincoln Men |'Off
call Out
str = ' 'BluWht'|_______________________________________|'Off
call Out
str = ''
call Out
str = ' Your mission is to take you and your friends to a safe place. You'
call Out
str = ' must travel 80 miles to before you are free. If not, you will lose the'
call Out
str = ' mission. Also, make sure your hitpoints and bullets are okay. Good luck!'
call Out
str = ''
call Out
str = Cya'Are you ready for this mission? ['||PUR||'Y'||CYA||'/n]'Off
call GetKey
s = upper(hot)
str = ''
call Out
if s = "N" then call main
ogun = 'Young Gun'
obullets = 250
ohit = 250
obj = 'The Lincoln Men'
miles = 0
signal level33
Level33:
if miles = 80 | miles > 80 then do
str = Blu'You out ran the Lincoln men. You win!'Off
call Out
levw = 1
call levelsave;end
call checklev
str = Blu||'Miles traveled so far '||Cya||': '||Yel||''miles''||Off
call Out
address command "wait 2"
call levelstats
str = Cya||'Command '||Blu||'->'||Off
call GetKey
c = upper(hot)
str = ''
call Out
if c = "F" then do
call shoot
call cshoot
call Out
str = Blu'80 Miles traveled.'Off
miles = miles + 4
end
if c = "H" then call healer
if c = "Q" then call levelquit
signal Level33
Level4:
lev = 4
call checkexp
str = CLS
call Out
str = ' '
call Out
str = ' '||CYA||'_____________________________________________'Off
call Out
str = ' 'CyaWht'| Level 4 - Escape the Lincoln Men''s building |'Off
call Out
str = ' 'CyaWht'|_____________________________________________|'Off
call Out
str = ''
call Out
str = ' You were captured by the Lincoln Men. You must try and escape the Lincoln'
call Out
str = ' Men''s building. If you do not succeed you will be hanged. Try everything you'
call Out
str = ' have to, this is one tough mission! Good Luck!'
call Out
str = ''
call Out
str = Cya||'Are you ready for this mission? ['||Blu||'Y'||Cya||'/n]'||Off
call GetKey
i = upper(hot)
str = ''
call Out
if i = "N" then call main
call locat1
loc1:
str = Blu'Storage Room'Off
call Out
str = Cya'You are on the top floor of a storage room. There is a open shaft above you.'Off
call Out
str = Cya'Up is the only direction out.'Off
call Out
return
loc2:
str = Blu'Center of Roof'Off
call Out
str = Cya'You are on the top of the Lincoln Men''s business office. There are exits to'Off
call Out
str = Cya'the east and west.'Off
call Out
return
loc3:
str = Blu'East Roof'Off
call Out
str = Cya'You are on the east roof on the Lincoln Men''s building. There are two exits,'Off
call Out
str = Cya'down and west.'
call Out
return
loc4:
str = Blu'West Roof'Off
call Out
str = Cya'You are on the west side of the Lincoln Men''s building. East is the only exit.'Off
call Out
return
loc5:
str = Blu'Road Path'Off
call Out
str = Cya'You are out of the building. There is a horse here. Up is the only exit.'Off
call Out
str = Cya'There is an exit north, but it''s too far to walk on foot.'Off
call Out
return
locat1:
call loc1
str = Blu||'Command '||Yel||'-> ['||Grn||'?'||Blu||' = Help] '||Off
length = 25
call Input
le = upper(typed)
str = ''
call Out
if le = "LOOK" then call locat1
if le = "?" then call level4help
if le = "SLIP OUT OF HANDCUFFS" | le = "BOUNCE CHAIR" | le = "SLIP OFF HANDCUFFS" | le = "SLIP OUT" | le = "BREAK OUT" | le = "PULL HANDS OUT" then do
str = Blu'You successfully slip your hands through the handcuffs.'Off
call Out
ha = 1;end
if le = "Q" then call level4e
if le = "U" then do
if ha = 0 then do
str = Red'You can''t get up! You''re handcuffed to the chair!'Off
call Out
end
if ha = 1 then do
str = Blu'You climb up through the ceiling shaft.'Off
call Out
call locat2;end
end
if le = "N" | le = "Q" | le = "S" | le = "E" | le = "W" then call Out Red'You can''t go that way!'Off
call Locat1
Locat2:
call loc2
str = Blu'Command '||PUR||'-> ['Wht'?'||BLU||' = Help] 'Off
length = 5
call Input
le = upper(typed)
if le = "LOOK" then call locat2
if le = "Q" then call level4e
if le = "E" then call locat3
if le = "W" then call locat4
if le = "?" then call level4Help
if le = "D" then call locat1
call Locat2
Locat3:
call loc3
str = Cya'Command 'Wht'-> ['||BLU||'?'||CYA||' = Help] 'Off
length = 5
call Input
le = upper(typed)
str = ''
call Out
if le = "LOOK" then call locat3
if le = "D" then call locat5
if le = "?" then call level4help
if le = "E" | le = "S" | le = "U" | le = "N" then do
str = Red'You can''t go that way!'Off
call Out
end
if le = "W" then call locat2
if le = "Q" then call level4e
call Locat3
Locat4:
call loc4
str = Blu||'Command '||Wht||'-> ['||Yel||'?'||Blu||' = Help] '||Off
length = 25
call Input
le = upper(typed)
str = ''
call Out
if le = "LOOK" then call locat4
if le = "E" then call locat2
if le = "Q" then call level4e
if le = "?" then call level4help
if le = "W" | le = "S" | le = "N" | le = "U" | le = "D" then do
str = Red'You can''t go that way!'Off
call Out
end
call locat4
level4help:
str = ''
call Out
str = Blu'Help Commands'||YEL||':'Off
call Out
str = Yel'LOOK '||CYA||'[Look around]'Off
call Out
str = Yel'['||BLU||'N'||YEL||'] '||CYA||'[Go North]'Off
call Out
str = Yel'['||BLU||'S'||YEL||'] '||CYA||'[Go South]'Off
call Out
str = Yel'['||BLU||'E'||YEL||'] '||CYA||'[Go East]'Off
call Out
str = Yel'['||BLU||'W'||YEL||'] '||CYA||'[Go West]'Off
call Out
str = Yel'['||BLU||'U'||YEL||'] '||CYA||'[Up]'Off
call Out
str = Yel'['||BLU||'D'||YEL||'] '||CYA||'[Down]'Off
call Out
str = Yel'['||BLU||'Q'||YEL||'] '||CYA||'[Quit and get captured]'Off
call Out
str = ''
call Out
str = Red'HINT '||BLU||'- '||YEL||'You have small wrists.'Off
call Out
return
Locat5:
call loc5
str = Blu||'Command '||Yel||'-> ('||CYA||'?'||Blu||' = Help)'||Off
length = 25
call Input
le = upper(typed)
str = ''
call Out
if le = "LOOK" then call locat3
if le = "STEAL HORSE" | le = "RIDE HORSE" | le = "GET ON HORSE" | le = "TAKE HORSE" then do
str = Yel'You successfully escaped the Lincoln Men! Nice going!'Off
call Out
level = 4
levw = 1;call levelsave
call main
end
if le = "U" then call Locat3
if le = "Q" then call level4e
if le = "?" then call level4help
if le = "W" | le = "S" | le = "N" | le = "E" | le = "D" then do
str = Red'You can''t go that way!'Off
call Out
end
call Locat5
Level4e:
str = Blu||'You have given up and failed the mission! You lose '||Grn||'$1000'||Blu||'.'||Off
call Out
money = money - 1000
levl = 1
call levelsave
end
Level5:
lev = 5
call checkexp
obj = 'The Murphy Men'
ogun = 'Young Gun'
ohit = 300
obullets = 300
str = CLS
call Out
str = ' '
call Out
str = ' '||CYA||'_____________________________________'Off
call Out
str = ' 'CyaBlu'| Level 5 - Finish off the Murphy Men |'Off
call Out
str = ' 'CyaBlu'|_____________________________________|'Off
call Out
str = ''
call Out
str = ' You meet up with the Murphy Men for the last time. You need to defeat'
call Out
str = ' these men to continue your mission. These men are strong so be prepared!'
call Out
str = ' Good luck!'
call Out
str = ''
call Out
str = Grn||'Are you ready for this mission? ['||Blu||'Y'||Grn||'/n]'||Off
call GetKey
s = upper(hot)
str = ''
call Out
if s = "N" then call main
signal level55
Level55:
call checklev
call levelstats
str = Grn'Command '||YEL||'->'Off
call GetKey
a = upper(hot)
str = ''
call Out
if a = "F" then do
call shoot
call cshoot
end
if a = "H" then call healer
if a = "Q" then do
str = Yel'You lose 'Grn'$1000 '||YEL||'for this foolish act.'Off
call Out
money = money - 1000
levl = 1;call levelsave;end
signal Level55
Level6:
lev = 6
call checkexp
obj = 'The Two Mexicans'
ohit = 350
obullets = 350
ogun = 'Young Gun'
str = CLS
call Out
str = ' '
call Out
str = ' '||CYA||'____________________________________________________'Off
call Out
str = ' 'CyaPur'| Level 6 - Kill the Two Mexicans blocking the path |'Off
call Out
str = ' 'CyaPur'|____________________________________________________|'Off
call Out
str = ''
call Out
str = ' They are called the Two Mexicans of Mexico. They are the best in'
call Out
str = ' Mexico and they don''t like you too much. They start firing at you. You'
call Out
str = ' are forced to battle.'
call Out
str = ''
call Out
str = Cya||'Are you ready for this mission? ['||Grn||'Y'||Cya||'/n]'||Off
call GetKey
d = upper(hot)
str = ''
call Out
if d = "N" then call main
signal level66
Level66:
call checklev
call levelstats
str = Blu||'Command '||Pur||'->'||Off
call GetKey
f = upper(hot)
str = ''
call Out
if f = "F" then do
call shoot
call cshoot
end
if f = "H" then call healer
if f = "Q" then do
str = Blu'You lose 'Grn'$1000 '||BLU||'for this foolish act.'Off
call Out
money = money - 1000
levl = 1;call levelsave;end
signal Level66
Level7:
lev = 7
call checkexp
obj = 'Pat Garret and men'
ohit = 400
obullets = 400
ogun = 'Young Gun'
str = CLS
call Out
str = ' '
call Out
str = ' '||BLU||'____________________________________________'Off
call Out
str = ' 'BluYel'| Level 7 - You encounter Sheriff Pat Garret |'Off
call Out
str = ' 'BluYel'|____________________________________________|'Off
call Out
str = ''
call Out
str = ' Pat Garret has been offered $1000 to hunt you down and kill you. He is'
call Out
str = ' not fooling around. You must scare him off by firing at him. Your party is'
call Out
str = ' here to help you.'
call Out
str = ''
call Out
str = Yel||'Are you ready for this mission? ['||Blu||'Y'||Yel||'/n]'||Off
call GetKey
d = upper(hot)
str = ''
call Out
if d = "N" then call main
signal level77
Levelstats:
str = CLS
call Out
str = '(Your hits '||Pur||':'||Off||' '||Cya||''hits''||Off||') (Your bullets '||Pur||':'||Off||' '||Cya||''bullets''||Off||')'
call Out
str = '('obj'''s hits '||Yel||':'||Off||' '||Red||''ohit''||Off||') ('obj'''s bullets '||Yel||':'||Off||' '||Red||''obullets''||Off||')'
call Out
str = ''||Yel||'['||Blu||'F'||Yel||'] '||Blu||'- '||Cya||'Fire at '||Pur||''obj' '||Blu||' '||Yel||'['||Blu||'H'||Yel||'] '||Blu||'- '||Cya||'Heal yourself '||Blu||' '||Yel||'['||Blu||'Q'||Yel||'] '||Blu||'- '||Cya||'Quit and give up'||Off
call Out
return
Level77:
call checklev
call levelstats
str = Red'Command '||YEL||'->'Off
call GetKey
g = upper(hot)
str = ''
call Out
if g = "F" then do
call shoot
call fshoot
call cshoot
end
if g = "H" then call healer
if g = "Q" then call levelquit
signal Level77
levelquit:
if lev = 10 then do
str = Red'Sorry, you have lost! Back we go to level 1!'Off
call Out
address command "wait 2"
level = 0;call main;end
str = Yel'For your cowardly act, you lose 'Grn'$1000'Red'.'Off
call Out
money = money - 1000
levl = 1;call levelsave;end
fshoot:
if lev = 7 then do
str = Cya'Chavez, Doc, Arkansas Dave and Buckshot George fire.'Off
call Out
end
return
Level8:
lev = 8
call checkexp
ohit = 450
ogun = 'Young Gun'
obullets = 450
obj = 'The Lincoln Man'
str = CLS
call Out
str = ' '
call Out
str = ' 'Red'______________________________________'Off
call Out
str = ' 'RedYel'| Level 8 - Fight The Mad Lincoln Man |'Off
call Out
str = ' 'RedYel'|______________________________________|'Off
call Out
str = ''
call Out
str = ' You encounter a Mad Lincoln Man on your way to Old Mexico. You must'
call Out
str = 'fight him to continue on.'
call Out
str = ''
call Out
str = Cya||'Are you ready for this mission? ['||Wht||'Y'||Cya||'/n]'||Off
call GetKey
s = upper(hot)
str = ''
call Out
if s = "N" then call main
call level88
Level88:
call checklev
call levelstats
str = Blu'Command '||CYA||'->'Off
call GetKey
d = upper(hot)
str = ''
call Out
if d = "F" then do
call shoot
call cshoot
end
if d = "H" then call healer
call Level88
Level9:
lev = 9
call checkexp
obj = 'The Enemies'
ohit = 800
obullets = 300
ogun = 'Young Gun'
str = CLS
call Out
str = ' '
call Out
str = ' '||CYA||'___________________________________________________________'Off
call Out
str = ' 'CyaBlu'| Level 9 - Kill the last of the Lincoln Men and Murphy Men |'Off
call Out
str = ' 'CyaBlu'|___________________________________________________________|'Off
call Out
str = ''
call Out
str = ' You are forced to enter a shoot out with the Lincoln Men and Murphy Men.'
call Out
str = ' Arkansas Dave fled out of this battle and went to Old Mexico. You are here'
call Out
str = ' to fight now, so there''s no stopping.'
call Out
str = ''
call Out
str = Yel||'Are you ready for this mission? ['||Blu||'Y'||Yel||'/n]'||Off
call GetKey
g = upper(hot)
str = ''
call Out
if g = "N" then call main
call level99
Level99:
call checklev
call levelstats
str = Blu'Command 'Wht'->'Off
call GetKey
w = upper(hot)
str = ''
call Out
if w = "F" then do
call shoot
call cshoot
end
if w = "H" then call healer
if w = "Q" then call levelquit
call Level99
Level10:
lev = 10
call checkexp
obj = 'Pat Garret'
ohit = 1000
obullets = 1000
ogun = 'Young Gun'
str = CLS
call Out
str = ' '
call Out
str = ' '||BLU||'_______________________________________________________'Off
call Out
str = ' 'BluPur'|* Level 10 - Your last battle with Sheriff Pat Garret *|'Off
call Out
str = ' 'BluPur'|_______________________________________________________|'Off
call Out
str = ''
call Out
str = ' Pat Garret finally cought up with you and now he is going to end it all'
call Out
str = ' here. Make sure you''re prepared, he''s tough! If you lose this mission in'
call Out
str = ' anyway, you will be sent back down to level 1. Be smart and good luck!'
call Out
str = ''
call Out
str = Pur||'Are you ready for this mission? ['||Yel||'Y'||Pur||'/n]'||Off
call GetKey
y = upper(hot)
str = ''
call Out
if y = "N" then call main
call level10!
Level10!:
call checklev
call levelstats
str = Cya'Command '||PUR||'->'Off
call GetKey
g = upper(hot)
str = ''
call Out
if g = "F" then do
call shoot
call cshoot
end
if g = "H" then call healer
if g = "Q" then call levelquit
call Level10!
Checkexp:
if lev = 2 then do
if exp > 100 then return
if exp < 100 then do
str = Red'You need at least 100 experience points to complete level 2.'Off
call Out
address command "wait 2"
call main;end
end
if lev = 3 then do
if exp > 200 then return
if exp < 200 then do
str = Red'You need at least 200 experience points to complete level 3.'Off
call Out
address command "wait 2"
call main;end
end
if lev = 4 then do
if exp > 300 then return
if exp < 300 then do
str = Red'You need at least 300 experience points to complete level 4.'Off
call Out
address command "wait 2"
call main;end
end
if lev = 5 then do
if exp > 400 then return
if exp < 400 then do
str = Red'You need at least 400 experience points to complete level 5.'Off
call Out
address command "wait 2"
call main;end
end
if lev = 6 then do
if exp > 500 then return
if exp < 500 then do
str = Red'You need at least 500 experience points to complete level 6.'Off
call Out
address command "wait 2"
call main;end
end
if lev = 7 then do
if exp > 600 then return
if exp < 600 then do
str = Red'You need at least 600 experience points to complete level 7.'Off
call Out
address command "wait 2"
call main;end
end
if lev = 8 then do
if exp > 700 then return
if exp < 700 then do
str = Red'You need atleast 700 experience points to complete level 8.'Off
call Out
address command "wait 2"
call main;end
end
if lev = 9 then do
if exp > 800 then return
if exp < 800 then do
str = Red'You need atleast 800 experience points to complete level 9.'Off
call Out
address command "wait 2"
call main;end
end
if lev = 10 then do
if exp > 900 then return
if exp < 900 then do
str = Red'You need at least 900 experience points to complete level 10.'Off
call Out
address command "wait 2"
call main;end
end
return
Bye:
call open(file,'DOORS:YoungGuns/pistolers/'username'',"W")
call writeln file, gun;call writeln file, bullets;call writeln file, wins
call writeln file, lost;call writeln file, level;call writeln file, exp
call writeln file, money;call writeln file, bankmon;call writeln file, hits
call writeln file, med;call writeln file, alias
call close(file)
call ENDIT
IOERR:
leine = SIGL
CODE = RC
call Bl
str = "-=* A FATAL I/O error has occured *=- PLEASE notify the sysop."
call Out
str = "Line:" leine
call Out
call Bl
str = "PLEASE write down the TYPE of ERROR and the LINE # and"
call Out
str = "leave the SYSOP a message so he may get it corrected."
call Out
call Returnc
if exists(path"ERRORLOG") then do
call open(path"errorlog", "A")
end
else do
call open(path"errorlog", "W")
end
erstring3="*I/O Error* Line: "LeiNE
signal ENDIT
ERROR:
leine = SIGL
CODE = RC
call Bl
str = "-=* A FATAL General Failure has occured *=- PLEASE notify the sysop."
call Out
str = "Line:" SIGL " Severity:" code
call Out
call Bl
str = "PLEASE write down the TYPE of ERROR and the LINE # and"
call Out
str = "leave the SYSOP a message so he may get it corrected."
call Out
call Returnc
if exists(path"ERRORLOG") then do
call open(path"errorlog", "A")
end
else do
call open(path"errorlog", "W")
end
erstring3="*General Failure Error* Line: "LeINE" ERRORCODE: "CODE
signal ENDIT
SYNTAX:
leine = SIGL
CODE = RC
call Bl
str = "-=* A FATAL Syntax Error has occured *=- PLEASE notify the sysop."
call Out
str = " Line:"leine" Error Code:" code
call Out
call Bl
str = "PLEASE write down the TYPE of ERROR and the LINE # and"
call Out
str = "leave the SYSOP a message so he may get it corrected."
call Out
call Returnc
if exists(path"ERRORLOG") then do
call open(path"errorlog", "A")
end
else do
call open(path"errorlog", "W")
end
erstring3 = "*Syntax Error* Line: "LeINE" ERRORCODE: "CODE
signal ENDIT
GETKEY:
call hotkey dn,ln,str
hot=result
call checkcarrier
return
INPUT:
call Prompt dn,ln,str,length
typed=result
call checkcarrier
return
OUT:
call message dn,ln,str,1
return
BL:
str = " "
call out
return
CHECKCARRIER:
call cdetect dn,ln
if upper(result) = "NO CARRIER!" then signal Endit
return
INUSEENDIT:
call lf2
str = "Returning to" BBSName " ..."
call Out
signal GetOut
DELETEINUSE:
if exists(Mainpath"INUSE.txt") then do
address command "delete "mainpath"INUSE.txt QUIET"
end
return
ENDIT:
call deleteinuse
str = CLS
call Out
signal GetOut
RETURNC:
call Bl
str = CYA "Press any key to continue...."
call GetKey
call Bl
call ENDIT
GETOUT:
call Bl
str = CYA "You've been using "doorName" by "author"."
call Out
call Bl
str = CYA "Thank you," username ", please press [RETURN] or [ENTER]."
call GetKey
call Bl
call Exit_Door DoorName,LineNumber
Exit 0